ETC5512 Assignment 4: An Analysis of US Air Traffic

ATL airport

0.1 ✈️ Exercise 1

0.1.1 a.

## Parsed with column specification:
## cols(
##   .default = col_double(),
##   FlightDate = col_date(format = ""),
##   Reporting_Airline = col_character(),
##   IATA_CODE_Reporting_Airline = col_character(),
##   Tail_Number = col_character(),
##   Origin = col_character(),
##   OriginCityName = col_character(),
##   OriginState = col_character(),
##   OriginStateFips = col_character(),
##   OriginStateName = col_character(),
##   Dest = col_character(),
##   DestCityName = col_character(),
##   DestState = col_character(),
##   DestStateFips = col_character(),
##   DestStateName = col_character(),
##   CRSDepTime = col_character(),
##   DepTime = col_character(),
##   DepTimeBlk = col_character(),
##   WheelsOff = col_character(),
##   WheelsOn = col_character(),
##   CRSArrTime = col_character()
##   # ... with 40 more columns
## )

## See spec(...) for full column specifications.

Here, I chose ATL airport and UA airline.

0.1.2 b.

## Parsed with column specification:
## cols(
##   .default = col_double(),
##   AIRPORT = col_character(),
##   DISPLAY_AIRPORT_NAME = col_character(),
##   DISPLAY_AIRPORT_CITY_NAME_FULL = col_character(),
##   AIRPORT_COUNTRY_NAME = col_character(),
##   AIRPORT_COUNTRY_CODE_ISO = col_character(),
##   AIRPORT_STATE_NAME = col_character(),
##   AIRPORT_STATE_CODE = col_character(),
##   AIRPORT_STATE_FIPS = col_character(),
##   DISPLAY_CITY_MARKET_NAME_FULL = col_character(),
##   LAT_HEMISPHERE = col_character(),
##   LON_HEMISPHERE = col_character(),
##   AIRPORT_START_DATE = col_date(format = ""),
##   AIRPORT_THRU_DATE = col_date(format = ""),
##   X33 = col_logical()
## )

## See spec(...) for full column specifications.

0.1.3 c. 

## Source : http://tile.stamen.com/terrain/4/2/5.png

## Source : http://tile.stamen.com/terrain/4/3/5.png

## Source : http://tile.stamen.com/terrain/4/4/5.png

## Source : http://tile.stamen.com/terrain/4/5/5.png

## Source : http://tile.stamen.com/terrain/4/2/6.png

## Source : http://tile.stamen.com/terrain/4/3/6.png

## Source : http://tile.stamen.com/terrain/4/4/6.png

## Source : http://tile.stamen.com/terrain/4/5/6.png

## Source : http://tile.stamen.com/terrain/4/2/7.png

## Source : http://tile.stamen.com/terrain/4/3/7.png

## Source : http://tile.stamen.com/terrain/4/4/7.png

## Source : http://tile.stamen.com/terrain/4/5/7.png

The level of transparency of the lines specifies how often does UA carry flights between ATL airport and other airports in Feb 2020. The deeper the color means more flights.

0.2 ✈️ Exercise 2

0.2.1 a.

(#tab:standardise timezone)Flights-after normalise as NY Time

Origin_DateTime_NY	Dest_DateTime_NY	Tail_Number	Origin	Dest
2020-02-01 20:35:00	2020-02-01 22:46:00	N231JB	ATL	BOS
2020-02-01 20:48:00	2020-02-01 23:20:00	N309JB	BOS	ATL
2020-02-01 10:38:00	2020-02-01 12:52:00	N284JB	ATL	BOS
2020-02-01 06:01:00	2020-02-01 07:56:00	N632JB	ATL	FLL
2020-02-01 10:46:00	2020-02-01 12:31:00	N547JB	FLL	ATL
2020-02-01 07:22:00	2020-02-01 10:02:00	N637JB	JFK	ATL

0.2.2 b.

## # A tibble: 6,580 x 2
## # Groups:   Tail_Number [2,422]
##    Tail_Number DayofMonth
##    <chr>            <dbl>
##  1 N101DQ              24
##  2 N101HQ               1
##  3 N101HQ               2
##  4 N102HQ              12
##  5 N102HQ              29
##  6 N103HQ               7
##  7 N103HQ              11
##  8 N105DU              21
##  9 N106HQ              22
## 10 N107SY              22
## # ... with 6,570 more rows

## List of 93
##  $ line                      :List of 6
##   ..$ colour       : chr "black"
##   ..$ size         : num 0.409
##   ..$ linetype     : num 1
##   ..$ lineend      : chr "butt"
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ rect                      :List of 5
##   ..$ fill         : chr "white"
##   ..$ colour       : chr "black"
##   ..$ size         : num 0.409
##   ..$ linetype     : num 1
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ text                      :List of 11
##   ..$ family       : chr ""
##   ..$ face         : chr "plain"
##   ..$ colour       : chr "black"
##   ..$ size         : num 9
##   ..$ hjust        : num 0.5
##   ..$ vjust        : num 0.5
##   ..$ angle        : num 0
##   ..$ lineheight   : num 0.9
##   ..$ margin       : 'margin' num [1:4] 0pt 0pt 0pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ title                     : NULL
##  $ aspect.ratio              : NULL
##  $ axis.title                : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ axis.title.x              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 2.25pt 0pt 0pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.x.top          :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0pt 0pt 2.25pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.x.bottom       : NULL
##  $ axis.title.y              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : num 90
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0pt 2.25pt 0pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.y.left         : NULL
##  $ axis.title.y.right        :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : num -90
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0pt 0pt 0pt 2.25pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text                 : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ axis.text.x               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 1.8pt 0pt 0pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.x.top           :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0pt 0pt 1.8pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.x.bottom        : NULL
##  $ axis.text.y               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 1
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0pt 1.8pt 0pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.y.left          : NULL
##  $ axis.text.y.right         :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0pt 0pt 0pt 1.8pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.ticks                : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ axis.ticks.x              : NULL
##  $ axis.ticks.x.top          : NULL
##  $ axis.ticks.x.bottom       : NULL
##  $ axis.ticks.y              : NULL
##  $ axis.ticks.y.left         : NULL
##  $ axis.ticks.y.right        : NULL
##  $ axis.ticks.length         : 'unit' num 2.25pt
##   ..- attr(*, "valid.unit")= int 8
##   ..- attr(*, "unit")= chr "pt"
##  $ axis.ticks.length.x       : NULL
##  $ axis.ticks.length.x.top   : NULL
##  $ axis.ticks.length.x.bottom: NULL
##  $ axis.ticks.length.y       : NULL
##  $ axis.ticks.length.y.left  : NULL
##  $ axis.ticks.length.y.right : NULL
##  $ axis.line                 : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ axis.line.x               : NULL
##  $ axis.line.x.top           : NULL
##  $ axis.line.x.bottom        : NULL
##  $ axis.line.y               : NULL
##  $ axis.line.y.left          : NULL
##  $ axis.line.y.right         : NULL
##  $ legend.background         :List of 5
##   ..$ fill         : NULL
##   ..$ colour       : logi NA
##   ..$ size         : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ legend.margin             : 'margin' num [1:4] 4.5pt 4.5pt 4.5pt 4.5pt
##   ..- attr(*, "valid.unit")= int 8
##   ..- attr(*, "unit")= chr "pt"
##  $ legend.spacing            : 'unit' num 9pt
##   ..- attr(*, "valid.unit")= int 8
##   ..- attr(*, "unit")= chr "pt"
##  $ legend.spacing.x          : NULL
##  $ legend.spacing.y          : NULL
##  $ legend.key                :List of 5
##   ..$ fill         : chr "white"
##   ..$ colour       : logi NA
##   ..$ size         : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ legend.key.size           : 'unit' num 1.2lines
##   ..- attr(*, "valid.unit")= int 3
##   ..- attr(*, "unit")= chr "lines"
##  $ legend.key.height         : NULL
##  $ legend.key.width          : NULL
##  $ legend.text               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ legend.text.align         : NULL
##  $ legend.title              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ legend.title.align        : NULL
##  $ legend.position           : num [1:2] 0 0
##  $ legend.direction          : NULL
##  $ legend.justification      : num [1:2] 0 0
##  $ legend.box                : NULL
##  $ legend.box.just           : NULL
##  $ legend.box.margin         : 'margin' num [1:4] 0cm 0cm 0cm 0cm
##   ..- attr(*, "valid.unit")= int 1
##   ..- attr(*, "unit")= chr "cm"
##  $ legend.box.background     : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ legend.box.spacing        : 'unit' num 9pt
##   ..- attr(*, "valid.unit")= int 8
##   ..- attr(*, "unit")= chr "pt"
##  $ panel.background          : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ panel.border              : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ panel.spacing             : 'unit' num 0lines
##   ..- attr(*, "valid.unit")= int 3
##   ..- attr(*, "unit")= chr "lines"
##  $ panel.spacing.x           : NULL
##  $ panel.spacing.y           : NULL
##  $ panel.grid                : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ panel.grid.major          : NULL
##  $ panel.grid.minor          :List of 6
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 0.5
##   ..$ linetype     : NULL
##   ..$ lineend      : NULL
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ panel.grid.major.x        : NULL
##  $ panel.grid.major.y        : NULL
##  $ panel.grid.minor.x        : NULL
##  $ panel.grid.minor.y        : NULL
##  $ panel.ontop               : logi FALSE
##  $ plot.background           : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ plot.title                :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 1.2
##   ..$ hjust        : num 0
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0pt 0pt 4.5pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.title.position       : chr "panel"
##  $ plot.subtitle             :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0pt 0pt 4.5pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.caption              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : num 1
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 4.5pt 0pt 0pt 0pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.caption.position     : chr "panel"
##  $ plot.tag                  :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 1.2
##   ..$ hjust        : num 0.5
##   ..$ vjust        : num 0.5
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.tag.position         : chr "topleft"
##  $ plot.margin               : 'margin' num [1:4] 4.5pt 4.5pt 4.5pt 4.5pt
##   ..- attr(*, "valid.unit")= int 8
##   ..- attr(*, "unit")= chr "pt"
##  $ strip.background          :List of 5
##   ..$ fill         : chr "grey85"
##   ..$ colour       : chr "grey20"
##   ..$ size         : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ strip.background.x        : NULL
##  $ strip.background.y        : NULL
##  $ strip.placement           : chr "inside"
##  $ strip.text                :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : chr "grey10"
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 3.6pt 3.6pt 3.6pt 3.6pt
##   .. ..- attr(*, "valid.unit")= int 8
##   .. ..- attr(*, "unit")= chr "pt"
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ strip.text.x              : NULL
##  $ strip.text.y              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : num -90
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ strip.switch.pad.grid     : 'unit' num 2.25pt
##   ..- attr(*, "valid.unit")= int 8
##   ..- attr(*, "unit")= chr "pt"
##  $ strip.switch.pad.wrap     : 'unit' num 2.25pt
##   ..- attr(*, "valid.unit")= int 8
##   ..- attr(*, "unit")= chr "pt"
##  $ strip.text.y.left         :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : num 90
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  - attr(*, "class")= chr [1:2] "theme" "gg"
##  - attr(*, "complete")= logi TRUE
##  - attr(*, "validate")= logi TRUE

0.2.3 c. 

## # A tibble: 2 x 11
##   Origin_lon Origin_lat Dest_lon Dest_lat Dep_DateTime        Arr_DateTime
##        <dbl>      <dbl>    <dbl>    <dbl> <dttm>              <chr>       
## 1      -76.7       39.2    -84.4     33.6 2020-02-24 18:42:00 2020-02-24 ~
## 2      -84.4       33.6    -82.9     40.0 2020-02-24 22:06:00 2020-02-24 ~
## # ... with 5 more variables: AirTime_inter <dbl>, lon_inter <dbl>,
## #   lat_inter <dbl>, lon_incre <dbl>, lat_incre <dbl>

## New names:
## * value -> value...1
## * value -> value...2
## New names:
## * value -> value...1
## * value -> value...2

0.2.4 d. 

### test

## # A tibble: 2 x 8
##   DepTime AirTime Origin_lon Origin_lat Dest_lon Dest_lat lon_incre lat_incre
##   <chr>     <dbl>      <dbl>      <dbl>    <dbl>    <dbl>     <dbl>     <dbl>
## 1 1842        103      -76.7       39.2    -84.4     33.6    -1.13     -0.807
## 2 2206         67      -84.4       33.6    -82.9     40.0     0.344     1.42

0.2.5 e.

0.3 ✈️ Exercise 3

## Parsed with column specification:
## cols(
##   .default = col_double(),
##   FlightDate = col_date(format = ""),
##   Reporting_Airline = col_character(),
##   IATA_CODE_Reporting_Airline = col_character(),
##   Tail_Number = col_character(),
##   Origin = col_character(),
##   OriginCityName = col_character(),
##   OriginState = col_character(),
##   OriginStateFips = col_character(),
##   OriginStateName = col_character(),
##   Dest = col_character(),
##   DestCityName = col_character(),
##   DestState = col_character(),
##   DestStateFips = col_character(),
##   DestStateName = col_character(),
##   CRSDepTime = col_character(),
##   DepTime = col_character(),
##   DepTimeBlk = col_character(),
##   WheelsOff = col_character(),
##   WheelsOn = col_character(),
##   CRSArrTime = col_character()
##   # ... with 40 more columns
## )

## See spec(...) for full column specifications.

## Parsed with column specification:
## cols(
##   `Airline ID` = col_double(),
##   Name = col_character(),
##   Alias = col_character(),
##   IATA = col_character(),
##   ICAO = col_character(),
##   Callsign = col_character(),
##   Country = col_character(),
##   Active = col_character()
## )

## Parsed with column specification:
## cols(
##   `Airport ID` = col_double(),
##   Name = col_character(),
##   City = col_character(),
##   Country = col_character(),
##   IATA = col_character(),
##   ICAO = col_character(),
##   Latitude = col_double(),
##   Longitude = col_double(),
##   Altitude = col_double(),
##   Timezone = col_double(),
##   DST = col_character(),
##   `Tz database time zone` = col_character(),
##   Type = col_character(),
##   Source = col_character()
## )

## Parsed with column specification:
## cols(
##   .default = col_character(),
##   `YEAR MFR` = col_double(),
##   `TYPE REGISTRANT` = col_double(),
##   `LAST ACTION DATE` = col_double(),
##   `CERT ISSUE DATE` = col_double(),
##   `TYPE AIRCRAFT` = col_double(),
##   `TYPE ENGINE` = col_double(),
##   `MODE S CODE` = col_double(),
##   `AIR WORTH DATE` = col_double(),
##   `EXPIRATION DATE` = col_double(),
##   X35 = col_logical()
## )

## See spec(...) for full column specifications.

## Parsed with column specification:
## cols(
##   CODE = col_character(),
##   MFR = col_character(),
##   MODEL = col_character(),
##   TYPE = col_double(),
##   HORSEPOWER = col_character(),
##   THRUST = col_character(),
##   X7 = col_logical()
## )

## Parsed with column specification:
## cols(
##   CODE = col_character(),
##   MFR = col_character(),
##   MODEL = col_character(),
##   `TYPE-ACFT` = col_double(),
##   `TYPE-ENG` = col_double(),
##   `AC-CAT` = col_double(),
##   `BUILD-CERT-IND` = col_double(),
##   `NO-ENG` = col_character(),
##   `NO-SEATS` = col_character(),
##   `AC-WEIGHT` = col_character(),
##   SPEED = col_character(),
##   X12 = col_logical()
## )

## Parsed with column specification:
## cols(
##   .default = col_character(),
##   valid = col_datetime(format = ""),
##   lon = col_double(),
##   lat = col_double(),
##   alti = col_double(),
##   vsby = col_double()
## )

## See spec(...) for full column specifications.

## Loading required package: xml2

## 
## Attaching package: 'rvest'

## The following object is masked from 'package:purrr':
## 
##     pluck

## The following object is masked from 'package:readr':
## 
##     guess_encoding

0.4 ✈️ Exercise 4

This report is visible on my GitHub. The README.md file specifies the data sets in the data folder. It contains the variable explanations.

0.5 Acknowledgments

Data for Exercise 3:

• flights data was downloaded from Bureau of Transportation Statistics
• airports and airlines data were downloaded from Airport, airline and route data
• planes data was downloaded from Federal Aviation Administration
• weather data was downloaded from Iowa State University
• city data was scraped from wikipedia - Atlanta

Thanks to Hadley Wickham, the owner and maker of nycflights13 packages. I made the rda files and README.md following the documentation of nycflights13 (e.g. using same variable names, types, units).

Packages used to produce this assignment are:

tidyverse (Wickham et al. 2019), ggmap (Kahle and Wickham 2013), ggthemes (Arnold 2019), lutz (Teucher 2019), lubridate (Grolemund and Wickham 2011), kableExtra (Zhu 2019), janitor (Firke 2020), viridis (Garnier 2018), bookdown (Xie 2016)

0.6 References

Cite the main sources for your work, including R packages used.

Arnold, Jeffrey B. 2019. Ggthemes: Extra Themes, Scales and Geoms for ’Ggplot2’. https://CRAN.R-project.org/package=ggthemes.

Firke, Sam. 2020. Janitor: Simple Tools for Examining and Cleaning Dirty Data. https://CRAN.R-project.org/package=janitor.

Garnier, Simon. 2018. Viridis: Default Color Maps from ’Matplotlib’. https://CRAN.R-project.org/package=viridis.

Grolemund, Garrett, and Hadley Wickham. 2011. “Dates and Times Made Easy with lubridate.” Journal of Statistical Software 40 (3): 1–25. http://www.jstatsoft.org/v40/i03/.

Kahle, David, and Hadley Wickham. 2013. “Ggmap: Spatial Visualization with Ggplot2.” The R Journal 5 (1): 144–61. https://journal.r-project.org/archive/2013-1/kahle-wickham.pdf.

Teucher, Andy. 2019. Lutz: Look up Time Zones of Point Coordinates. https://CRAN.R-project.org/package=lutz.

Wickham, Hadley, Mara Averick, Jennifer Bryan, Winston Chang, Lucy D’Agostino McGowan, Romain François, Garrett Grolemund, et al. 2019. “Welcome to the tidyverse.” Journal of Open Source Software 4 (43): 1686. https://doi.org/10.21105/joss.01686.

Xie, Yihui. 2016. Bookdown: Authoring Books and Technical Documents with R Markdown. Boca Raton, Florida: Chapman; Hall/CRC. https://github.com/rstudio/bookdown.

Zhu, Hao. 2019. KableExtra: Construct Complex Table with ’Kable’ and Pipe Syntax. https://CRAN.R-project.org/package=kableExtra.